home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / bitfax.300 / disk1 / tymnet.sc_ / tymnet.bin
Text File  |  1994-04-19  |  596b  |  32 lines
  1. {tymnet.SCP}
  2.  
  3.  
  4. trace(0)
  5. :start
  6.     @c=1
  7.     typecr("Select the Tymnet Record ID...")
  8.     selpbk(default)
  9.     select(Tymnet)
  10.     if ( @mode <> 1 ) @mode = 1     { set it to call mode }
  11.     twait(1,"sec")    
  12.     docomm
  13.  
  14. :loop1 
  15.     twait(1,"sec");
  16.     if ( @conn = 0 ) goto :abort     { abort if disconnected }
  17.     if ( @conn = 1 ) goto :done      { continue on if connected }
  18.     goto :loop1  
  19.  
  20.  :done
  21.     twait(5,"sec")
  22.     "o"
  23.     cwait("please log in:")
  24.     "delphi$0D"
  25.     cwait("Username:")
  26.     "xxx$0D"
  27.     cwait("Password:")    
  28.     "yyy$0D" 
  29.  
  30. :abort
  31.     exit
  32.